home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / io / wr_adr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  898 b   |  50 lines
  1. /* wr_adr: address writing routines */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/io/RCS/wr_adr.c,v 6.0 1991/12/18 20:22:26 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/io/RCS/wr_adr.c,v 6.0 1991/12/18 20:22:26 jpo Rel $
  9.  *
  10.  * $Log: wr_adr.c,v $
  11.  * Revision 6.0  1991/12/18  20:22:26  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. /* --- *** --- 
  19. This routine is used so that there is only one entry point to adr2txt()
  20. which is located in Lib/pp/adr2txt.c
  21. --- *** --- */
  22.  
  23.  
  24. #include        "head.h"
  25. #include        "adr.h"
  26. #include     "sys.file.h"
  27. #include        <sys/time.h>
  28.  
  29.  
  30.  
  31.  
  32. /* ---------------------  Begin  Routines  -------------------------------- */
  33.  
  34.  
  35.  
  36. int wr_adr (ap, fp, type)
  37. ADDR    *ap;
  38. FILE    *fp;
  39. int     type;
  40. {
  41.     int     retval;
  42.  
  43.     PP_DBG (("wr_adr (%d)", type));
  44.  
  45.     retval = adr2txt (fp, ap, type);
  46.     if (retval == NOTOK)
  47.         return (RP_FIO);
  48.     return (RP_OK);
  49. }
  50.